home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (DO)
/
Softdisk Magazette Volume 2, No. 01 (1982-09)(Softdisk)(Side A).zip
/
Softdisk Magazette Volume 2, No. 01 (1982-09)(Softdisk)(Side A).do
/
KICK.IT.OFF.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
874b
|
24 lines
10 REM KICK.IT.OFF
15 D$ = CHR$(4)
20 TEXT : HOME
30 VTAB 2: HTAB 6: PRINT "SOFTDISK MAGAZETTE SEPT 82"
35 VTAB 5: HTAB 10: PRINT "1 = COVER PAGE"
40 VTAB 7: HTAB 10: PRINT "2 = ABOUT SOFTDISK"
60 VTAB 9: HTAB 10: PRINT "3 = SOFTWARE POLL"
70 VTAB 11: HTAB 10: PRINT "4 = BASICALC"
79 VTAB 13: HTAB 10: PRINT "5 = ON WITH THE SHOW"
81 VTAB 15: HTAB 10: PRINT "6 = QUIT"
88 VTAB 17: HTAB 3: PRINT "WHICH? ";: GET R$: PRINT R$
90 IF R$ = "1" GOTO 1000
100 IF R$ = "2" GOTO 2000
110 IF R$ = "3" GOTO 3000
120 IF R$ = "4" GOTO 4000
130 IF R$ = "5" GOTO 5000
135 IF R$ = "6" GOTO 6000
200 GOTO 88
1000 PRINT D$;"RUN SEPT.COVER"
2000 PRINT D$;"RUN ABOUT.SOFTDISK"
3000 PRINT D$;"RUN SOFTWARE.POLL"
4000 PRINT D$;"RUN BASI-CALC.HELLO"
5000 PRINT D$;"RUN SOFTDISK.PROG"
6000 TEXT : HOME : VTAB 12: HTAB 1: PRINT "DON'T FORGET TO BOOT OTHER SIDE OF DISK."